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’'Erasable Memory Program" for a Guided RCS Burn. 


In order to perform certain experiments during the APOLLO 12 and 
APOLLO 13 flights, it was planned to crash the empty LM ascent stage 
onto the lunar surface after rendezvous. 

Both methods used the ullage from P42 to give the proper burn. In APOLLO 
12, the flashing V99 N40 display was not answered, so that the ullage con- 
tinued. When sufficient AV was accumulated, the ground controller keyed 
ENTER, which terminated ullage and went to the flashing V16 N85 display. 
The problem with this method was that the time delay between the ENTER 
keystroke and its transmittal to the spacecraft was not accurately known, 
and an overburn resulted causing the LM crash site to be in error. 

In order to avoid this problem for APOLLO 13, the plan was to enable the 
P42 guidance equations during the ullage maneuver. This was done by 
clearing IDLEFLAG, after insuring that the AV monitor would not fail. 

When the P42 guidance equations determine that the burn is complete, 
they perform the engine shutdown routine, which, among other things, 
terminates ullage. This would produce an accurate cutoff with no over- 
burn. The problem with this procedure, however, is that after termina- 
tion of ullage, the V16 N40 display comes up over the V99 N40 display, 
causing a 31502 B AILOUT alarm. While this did not affect the performance 
of the burn, it was felt that a clean procedure should be developed for 
this type of burn. 

All of the powered flight programs in the LGC utilize the same logic, with 
individual program logic controlled by a table specified by the erasable 
WHICH. The "WHICH tables" determine what displays are given, the 
amount of ullage, the guidance equation to be used, etc. Incorporation of 
the ACB L25 made it possible to use an erasable memory "WHICH table". 
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As a result, an ’’erasable memory” powered flight program can be easily 
uplinked to the LGC. 


How to Write an Erasable Powered Flight Program 


All that is required is an erasable ’’WHICH table”, initialization of a few 
parameters, including WHICH, and a lead in routine that starts the new program. 
There are many precautions that must be observed when executing erasable 
programs. For example, it is obvious that the "WHICH table” must be in the 
same EBANK as WHICH. Also, the CALL instruction cannot be used in 
interpretive, but rather the basic routine E/CALL must be used. With this 
in mind, the following is developed for P99 - LM Deorbit. 


1. The following parameters must be initialized: 


DVTHRUSH 

WHICH 

F 

MDOT 

TDECAY 

VEX 


must be zeroed to prevent DVMON failure 

must be adress of "WHICH table” 

set to 200 lb. or 400 lb. , depending whether 
2 jet or 4 jet ullage. 

initialize MDOT to APS value - (not used, but 
uplink easier if it is included) 

must be zeroed - no decay for RCS jets. 

initialize to RCS exhaust velocity. 


2. The "WHICH table” should be as follows: 


P99WHICH 


+0 

VN 

0640 

+1 

TCF 

WANT APS 

+5 

TCF 

P40SPOT 

+6 

DEC 

2990 

+7 

ADRES 

STEERING 

+10 8 

BBCON 

STEERING 
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+U 8 

TCF 

COMMON 

+12 8 

TCF 

IGNITION 

+13 8 

TC 

P99IGN (erasable routine) 


3. The lead-in to P99 should be as follows: 


P99 

TC 

NEWMODEX 


DEC 

99 


TC 

INTPRET 


RTB 

E/CALL 


CADR 

S40.1 


GOTO 

P40IN 4-3 

The routine P99IGN 

should be 

as follows: 

P99IGN 

TC 

DOWNFLAG 


ADRES 

IDLEFLAG 


TC 

TASKOVER 


5. The following assumptions are made: 

The LM is the ascent stage only. 

There will be no more IMU alignments # Because of these 
assumptions, the erasable programs and "WHICH table" can 
overlay the AO T MARK and landing radar pad loads in EBANK7. 
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6. The resulting "program" is as follows (all addresses are for LUMINARY 
177) : 


NAME 

EC ADR 

OCTAL 

SYMBOLIC 

P9 9 WHICH 

3404 

01450 

VN 

0640 


3405 

12324 

TCF 

WANT APS 

P99IGN 

3406 

05527 

TC 

DOWNFLAG 


3407 

00161 

ADRES 

IDLEFLAG 


3410 

05272 

TC 

TASKOVER 


3411 

12150 

TCF 

P40SPOT 


3412 

05656 

DEC 

2990 


3413 

03667 

ADRES 

STEERING 


3414 

74066 

BBC0N 

STEERING 


3415 

12404 

TCF 

COMMON 


3416 

12433 

TCF 

IGNITION 


3417 

01406 

TC 

P99IGN 

P99 

3420 

05322 

TC 

NEWMODEX 


3421 

00143 

DEC 

99 


3422 

06042 

TC 

INTPRET 


3423 

77634 

RTB 



3424 

10607 


E/CALL 


3425 

56246 

CADR 

S40.1 


3426 

77650 

GOTO 



3427 

75202 


P40IN +3 
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NAME 

ECADR 

OCTAL 

SYMBOLIC 

F 

3734 

00026 

2 DEC 0. 

17792 B-7 


3735 

30605 

(400 lb) 


MDOT 

3736 

00151 

2DEC 

0. 05135 


3737 

05214 

(APS 

MDOT) 

TDECAY 

3740 

00000 

2DEC 

0 


3741 

00000 



VEX 

3742 

15400 

2DEC 

27 B-6 


3743 

00000 

(27. 00 

M/CS) • 

WHICH 

3455 

01404 

ADRES 

P99WHICH 

DVTHRUSH 

1250 

00000 

OCT 

0 

DVCNTR 

3515 

00004 

DEC 

4 

DSPTEM1 

1044 

13001 

OCT 

13001 


1045 

01420 

ADRES 

P99 


1046 

12067 

BBCON 

P99 


Description of P99 


Prior to executing P99, the following must be done: 


1. P30 or other targeting program must be done. 

2. If desired, a V49 maneuver can be done. 

3. PGNCS control, AUTO "mode selected". 

4. APS Engine Arm must be off because the engine on bit is set. 

5. P99 coding uplinked via the three P27 loads given in appendix. 
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To begin P99, key in V30E. (Noun 26 is loaded by the V72 uplink. ) After 
the V30, the sequence is: 

P99 in MODE light. 

Flashing V50 N18 - V33E for trim 

ENTER for no trim 

V06 N40 R1 counting down 

At TIG, ullage begins 

At cutoff, ullage stops 

Flashing V16 N40 V33E 

Flashing V16 N85 V33E 

Flashing V37 00E to POO. 


It should be noted that P99 is a general program for guiding an RCS burn, 
and does not have to be used for LM deorbit only. Further testing is in 
progress to determine whether it can be used for the TPI burn in the short 
rendezvous planned for APOLLO 14. Also, if 99 is not desired as a major 
mode number, the contents of cell 3421 can be modified to whatever the user 
desires. 

Two additional notes should be brought to mind. In order for the POO inte- 
gration routine to be terminated during P99, the POOH flag must be reset. The 
simplest way of doing this is to key a V96E. Also, N26 should be checked 
just prior to keying V30E to insure the locations haven't been overwritten by, 
e. g. , any priority displays. To che ck these numbers, key V5N26E: R1 = 
13001, R2 = 01420, R3 = 12067. 

The astronaut cards for a digital simulation are attached. 
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APPENDIX 


P99 uplink 


Load 1 

Load 2 

Load 3 

V71E 

V71E 

V72E 

24E 

12E 

21E 

3404E 

3734E 

3426E 

1450 E 

26E 

77650E 

12324E 

30605E 

3427E 

5527E 

151 E 

75202E 

161E 

5214E 

3455E 

5272E 

0E 

1404E 

12150 E 

0E 

1250E 

5656E 

15400E 

0E 

3667E 

0E 

3515E 

74066E 

V33E 

4E 

12404 E 


1044E 

12433E 


13001 E 

1406E 


1045E 

5322E 


1420E 

143E 


1046E 

6042E 


12067E 

77634E 


V33E 

10607 E 



56246 E 



V33E 
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ACKGROUNO = COOOO 


CARDS READ 3Y ASTRONALT INPUT-PPGG 5 


| ' . 

4 

I A 


WAIT 
IF V 
IF V 
W 2D 


2 V 48 E 

01 N 46 T HEN WAIT 
06 N 4? THBM WAIT 
V 3? MO B 
06 N 33 THEN V 25 
06 N 33 THBN WAIT 
U6 N 81 THEN WAIT 
06 N 81 THBN WAIT 
06 N 42 THEN WAIT 
16 N 45 TH*=N WAIT 
37 THEN WA I T 1 OH 


12102 

♦6250 


E WAIT 1 PROCEED 
E WAIT 1 PROCEED 


V 25 
WAIT 
WAIT 
WAIT 
WAIT 
WAIT 
l on 


IF V U 6 N 81 THEN WAIT 1 V 25 E 

IF V 06 N 81 THBN WAIT 1 PROCEE 

IF V 06 N 42 THEN WAIT 1 PROCEE 

IP V 16 N 45 THPN WAIT 1 PROCEE 

IF V 37 THEN WAI T 1 On t 
VERIFY cVTRY \u WITHIN 1< <K M=l 

V 96 E 

GUIDEMODE PRIMARY SCSMODE AUTO 
A SEN GAP M OFF 
UPTEt FOLLOW* 

V 71 E 


♦00108 E +C CO 

PROCEED 

V 25 E +00900 

PROCEED 

PROCEED 

PROCEED 


+C 1.05 9 fc +0470( 


WITHIN 


M=(C THEN WAIT 


2 4 ■: 
3434 $ 
1450 E 
12324 F 
5527 F 
161 F 
5272 r: 
12150 E 
5656 E 
3667 F 
74066 F 


12433 r 
14 J 6 ~ 

5322 F 
143 F 
6042 F 
77634 E 
lli60 7 F 
56246 E 
V 33 E 

VERIFY EVERY 10 WITHIN 1000 M*00 THEN WAIT 
ER 


A 
A 
A 
A 
A 
A 

#t 

A 


V 71 E 
12 E 
3734 E 

26 E 
30605 E 
151 £ 

5214 E 
0 F 
C E 
Of 
IE 








•: v > 



VERIFY EVERY 10 WITHIN 1000 M=00 THEN WAIT 


i. k “ 


LUMINARY AGO 
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m 

V 72 E 

21 E 
342 6 
7765 C 
3427 
75202 
3455 
140 4 
1250 
C 

3515 
4 

1044 
13001 

1045 
142C 

1046 
1206 7 

V 33 F 
VLRI FY 
EP 

V 62 

V 30 
IF V 
IF V 






W'.i 






h ■ 


m 


^VERY 10 WITHIN 10<“0 M = THEN WAIT 2 


E 

E 

50 

50 


18 

18 


THEN 

THEN 


WAIT 

WAIT 


V 33 E 
ENTER 


WAIT 5 


T = 3 Q 243 5«0u W 5 


IF 

IF 

IF 

IF 

IF 

V 


V 

V 

V 

V 

V 

82 


WAIT 


16 
16 
16 
16 
37 THEN 
E W 5 N 
2 V 69 i 


40 

85 

44 

85 


THIN 
THEN 
THEN 
THEN 
WAIT 
32 r 


W 2 V 33 
WAIT 2 V 


WAIT 

WAIT 

? OD 
W 5 


2 

2 

F 

K R 


82 

33 

33 


V 33 E 


END OF ASTRONAUT INPUT CARDS 


WfTi 


, ASTRONAUT READS 10 WORDS OF ASTRONAUT CARD INFORMATION 

€#88888888799 03 8* 80 C 000000 00 09 5.00000000000 00 7# 777777776*9 

2# 0000 0001 600 09 3. OOC 00 004000 09 7.77777777699. 01 8.88888888799 

START SIMULATION. 



